unit Con_ContaCorrente;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DbTables, Formulario_Padrao_Consulta, StdCtrls, Grids, DBGrids,
  Buttons, ExtCtrls, TFlatButtonUnit;

type
  TFrmCon_ContaCorrente = class(TFrmConsulta)
    dbgContaCorrente: TDBGrid;
    btnGravar: TFlatButton;
    ckInativa: TCheckBox;
    procedure BtnFecharClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure btnGravarClick(Sender: TObject);
    procedure ckInativaClick(Sender: TObject);

  private
    { Private declarations }
    procedure FazConsulta;

  public
    { Public declarations }
    Conta_Codigo: string;
    Ban_codigo: string;

  end;

var
  FrmCon_ContaCorrente: TFrmCon_ContaCorrente;

implementation
uses Dm, Biblio, clsContaCorrente, Cad_ContaCorrente, menu;

{$R *.DFM}

var
  ContaCorrente: TContaCorrente;
  tds: Tdatasource;
  tq: Tquery;

procedure TFrmCon_ContaCorrente.BtnFecharClick(Sender: TObject);
begin
  inherited;
  Conta_Codigo := tq.fieldbyname('Conta_Codigo').Asstring;
  BAn_codigo := tq.fieldbyname('ban_Codigo').Asstring;
  tds.free;
  tq.free;
end;

procedure TFrmCon_ContaCorrente.FormActivate(Sender: TObject);
begin
  inherited;
  if FileExists(caminho_personal + 'belquimica') then begin
    btnGravar.Visible := False;
  end;
  tds := TDataSource.create(FrmCon_ContaCorrente);
  tq := Tquery.create(FrmCon_ContaCorrente);
  tq.databasename := dmint.db.databasename;
  tq.active := False;
  tds.DataSet := tq;
  ckInativa.Checked := false;
  fazconsulta;
end;

procedure TfrmCon_ContaCorrente.FazConsulta;
begin
  ContaCorrente := TContaCorrente.Create;
  if ckInativa.Checked then
    ContaCorrente.Consultar(tq, '')
  else
    ContaCorrente.Consultar(tq, 'S');
  tq.open;
  ContaCorrente.free;
  dbgContaCorrente.DataSource := tds;
  dbgContaCorrente.Refresh;
end;

procedure TFrmCon_ContaCorrente.btnGravarClick(Sender: TObject);
var
  f1: TfrmCad_ContaCorrente;
begin
  inherited;
  f1 := TfrmCad_ContaCorrente.Create(Self);
  f1.btnC_ContaCorrente.Visible := False;
  f1.showModal;
  f1.Free;
  FazConsulta;
end;

procedure TFrmCon_ContaCorrente.ckInativaClick(Sender: TObject);
begin
  inherited;
  FazConsulta;
end;

end.
